home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Highspeed pascal.adf / Interface / Workbench.pas < prev   
Pascal/Delphi Source File  |  1992-01-16  |  1KB  |  75 lines
  1. Unit Workbench;
  2.  
  3. Interface
  4. Uses Intuition, AmigaDOS, Exec;
  5.  
  6. Type
  7.   tWBArg = Record
  8.           wa_Lock: LongInt;
  9.           wa_Name: pShortInt;
  10.         End;
  11.  
  12.   tDrawerData = Record
  13.           dd_NewWindow: tNewWindow;
  14.           dd_CurrentX: LongInt;
  15.           dd_CurrentY: LongInt;
  16.         End;
  17.  
  18.   pDrawerData = ^tDrawerData;
  19.   tDiskObject = Record
  20.           do_Magic: Integer;
  21.           do_Version: Integer;
  22.           do_Gadget: tGadget;
  23.           do_Type: ShortInt;
  24.           do_DefaultTool: pShortInt;
  25.           do_ToolTypes: ppShortInt;
  26.           do_CurrentX: LongInt;
  27.           do_CurrentY: LongInt;
  28.           do_DrawerData: pDrawerData;
  29.           do_ToolWindow: pShortInt;
  30.           do_StackSize: LongInt;
  31.         End;
  32.  
  33.   tFreeList = Record
  34.           fl_NumFree: Integer;
  35.           fl_MemList: tList;
  36.         End;
  37.  
  38.   pMsgPort = ^tMsgPort;
  39.   pWBArg = ^tWBArg;
  40.   tWBStartup = Record
  41.           sm_Message: tMessage;
  42.           sm_Process: pMsgPort;
  43.           sm_Segment: LongInt;
  44.           sm_NumArgs: LongInt;
  45.           sm_ToolWindow: pShortInt;
  46.           sm_ArgList: pWBArg;
  47.         End;
  48.  
  49.  
  50.  
  51. Const
  52.   WBDRAWER = $2;
  53.   MTYPE_PSTD = $1;
  54.   MTYPE_DISKCHANGE = $3;
  55.   MTYPE_TOOLEXIT = $2;
  56.   DRAWERDATAFILESIZE = $38;
  57.   GADGBACKFILL = $1;
  58.   WBGARBAGE = $5;
  59.   WBKICK = $7;
  60.   MTYPE_IOPROC = $6;
  61.   WBDISK = $1;
  62.   NO_ICON_POSITION = $80000000;
  63.   WBTOOL = $3;
  64.   MTYPE_CLOSEDOWN = $5;
  65.   MTYPE_TIMER = $4;
  66.   WBDEVICE = $6;
  67.   WBPROJECT = $4;
  68.   WB_DISKVERSION = $1;
  69.   WB_DISKMAGIC = $E310;
  70.  
  71.  
  72.  
  73.  
  74. End.
  75.